home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 579 / program / procdure / dice.lst < prev    next >
Encoding:
File List  |  1992-01-16  |  189 b   |  10 lines
  1. PROCEDURE dice(number%,sides%,VAR total%)
  2.   LOCAL xa%
  3.   total%=0
  4.   IF number%>0 AND sides%>0
  5.     FOR xa%=1 TO number%
  6.       ADD total%,RANDOM(sides%)+1
  7.     NEXT xa%
  8.   ENDIF
  9. RETURN
  10.